10 REM DIGITAL ALARM CLOCK
15 PRINT"[147]":POKE53281,6:POKE53280,14:POKE646,14
20 FORI=49152TO49283:READA:X=X+A:POKEI,A:NEXTI:REM POKE ALARM ML ROUTINE
30 IFX<>15756THENPRINT"DATA STATEMENT ERROR.":STOP
40 A$="CLOCK":C=49288:GOSUB280:A$="ALARM":C=49284:GOSUB280:REM GET TIMES
50 SYS49152:END:REM SET ALARM
60 DATA 169,42,141,24,3,169
70 DATA 192,141,25,3,173,15
80 DATA 221,9,128,141,15,221
90 DATA 160,0,32,102,192,173
100 DATA 15,221,41,127,141,15
110 DATA 221,160,4,32,102,192
120 DATA 169,132,141,13,221,96
130 DATA 173,13,221,41,4,240
140 DATA 50,169,4,141,13,221
150 DATA 32,115,192,169,13,141
160 DATA 24,212,169,0,141,5
170 DATA 212,169,240,141,6,212
180 DATA 169,4,141,1,212,169
190 DATA 33,141,4,212,32,159
200 DATA 255,165,198,240,249,32
210 DATA 115,192,32,126,192,169
220 DATA 0,133,198,76,71,254
230 DATA 162,3,185,132,192,157
240 DATA 8,221,200,202,16,246
250 DATA 96,169,0,160,24,153
260 DATA 0,212,136,16,250,96
270 DATA 120,32,138,255,88,96
280 PRINT"[147]FOR THE "A$" TIME:"
290 PRINT:INPUT"WHAT IS THE HOUR";H$:H=VAL(H$):IFH<0ORH>12THEN290
300 F=0:INPUT"AM OR PM";F$:IFLEFT$(F$,1)="P"THENF=128
310 HN=0:IFH>9THENHN=16
320 HH=VAL(RIGHT$(H$,1)):H=F+HN+HH:POKEC+0,H
330 INPUT"WHAT IS THE MINUTE";M$:M=VAL(M$):IFM<0ORM>59THEN330
340 MN=0:IFM>9THENMN=16*VAL(LEFT$(M$,1))
350 MM=VAL(RIGHT$(M$,1)):M=MN+MM:POKEC+1,M
360 INPUT"WHAT IS THE SECOND";S$:S=VAL(S$):IFS<0ORS>59THEN360
370 SN=0:IFS>9THENSN=16*VAL(LEFT$(S$,1))
380 SS=VAL(RIGHT$(S$,1)):S=SN+SS:POKEC+2,S:POKEC+3,0:REM SECS, TENTHS OF SECS
390 RETURN